home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / content / devel.tls / icp / simple.exe / SIMPLE.FRM next >
Text File  |  1996-03-10  |  11KB  |  324 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Enhanced HTML Browser"
  4.    ClientHeight    =   7050
  5.    ClientLeft      =   1185
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6720
  8.    Height          =   7455
  9.    Icon            =   "simple.frx":0000
  10.    Left            =   1125
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   7050
  13.    ScaleWidth      =   6720
  14.    Top             =   1170
  15.    Width           =   6840
  16.    Begin VB.ComboBox Combo1 
  17.       BeginProperty Font 
  18.          name            =   "Arial"
  19.          charset         =   0
  20.          weight          =   400
  21.          size            =   9
  22.          underline       =   0   'False
  23.          italic          =   0   'False
  24.          strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   345
  27.       ItemData        =   "simple.frx":030A
  28.       Left            =   555
  29.       List            =   "simple.frx":030C
  30.       TabIndex        =   2
  31.       Top             =   465
  32.       Width           =   6180
  33.    End
  34.    Begin HTMLObjects.HTML HTML1 
  35.       Height          =   5940
  36.       Left            =   0
  37.       TabIndex        =   4
  38.       Top             =   825
  39.       Width           =   6705
  40.       _ExtentX        =   11827
  41.       _ExtentY        =   10478
  42.       DeferRetrieval  =   0   'False
  43.       ElemNotification=   0   'False
  44.       UseDocColors    =   -1  'True
  45.       UnderlineLinks  =   -1  'True
  46.       Redraw          =   -1  'True
  47.       ViewSource      =   0   'False
  48.       RetainSource    =   -1  'True
  49.       Timeout         =   30
  50.       BackImage       =   ""
  51.       BackColor       =   12632256
  52.       ForeColor       =   0
  53.       LinkColor       =   16711680
  54.       VisitedColor    =   16711935
  55.       BeginProperty RegularFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          name            =   "Arial"
  57.          charset         =   0
  58.          weight          =   400
  59.          size            =   9
  60.          underline       =   0   'False
  61.          italic          =   0   'False
  62.          strikethrough   =   0   'False
  63.       EndProperty
  64.       BeginProperty FixedFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.          name            =   "Times New Roman"
  66.          charset         =   0
  67.          weight          =   400
  68.          size            =   8.25
  69.          underline       =   0   'False
  70.          italic          =   0   'False
  71.          strikethrough   =   0   'False
  72.       EndProperty
  73.       BeginProperty Heading1Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  74.          name            =   "Arial"
  75.          charset         =   0
  76.          weight          =   700
  77.          size            =   15.75
  78.          underline       =   0   'False
  79.          italic          =   0   'False
  80.          strikethrough   =   0   'False
  81.       EndProperty
  82.       BeginProperty Heading2Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  83.          name            =   "Arial"
  84.          charset         =   0
  85.          weight          =   700
  86.          size            =   14.25
  87.          underline       =   0   'False
  88.          italic          =   -1  'True
  89.          strikethrough   =   0   'False
  90.       EndProperty
  91.       BeginProperty Heading3Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  92.          name            =   "Arial"
  93.          charset         =   0
  94.          weight          =   700
  95.          size            =   12
  96.          underline       =   0   'False
  97.          italic          =   0   'False
  98.          strikethrough   =   0   'False
  99.       EndProperty
  100.       BeginProperty Heading4Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  101.          name            =   "Arial"
  102.          charset         =   0
  103.          weight          =   700
  104.          size            =   9.75
  105.          underline       =   0   'False
  106.          italic          =   -1  'True
  107.          strikethrough   =   0   'False
  108.       EndProperty
  109.       BeginProperty Heading5Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  110.          name            =   "MS Sans Serif"
  111.          charset         =   0
  112.          weight          =   400
  113.          size            =   8.25
  114.          underline       =   0   'False
  115.          italic          =   0   'False
  116.          strikethrough   =   0   'False
  117.       EndProperty
  118.       BeginProperty Heading6Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  119.          name            =   "MS Sans Serif"
  120.          charset         =   0
  121.          weight          =   400
  122.          size            =   8.25
  123.          underline       =   0   'False
  124.          italic          =   0   'False
  125.          strikethrough   =   0   'False
  126.       EndProperty
  127.    End
  128.    Begin MSComDlg.CommonDialog dlgFileOpen 
  129.       Left            =   6210
  130.       Top             =   6285
  131.       _Version        =   65536
  132.       _ExtentX        =   847
  133.       _ExtentY        =   847
  134.       _StockProps     =   0
  135.    End
  136.    Begin ComctlLib.StatusBar StatusBar1 
  137.       Align           =   2  'Align Bottom
  138.       Height          =   270
  139.       Left            =   0
  140.       TabIndex        =   3
  141.       Top             =   6780
  142.       Width           =   6720
  143.       _Version        =   65536
  144.       _ExtentX        =   11853
  145.       _ExtentY        =   476
  146.       _StockProps     =   68
  147.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  148.          name            =   "Arial"
  149.          charset         =   0
  150.          weight          =   400
  151.          size            =   8.25
  152.          underline       =   0   'False
  153.          italic          =   0   'False
  154.          strikethrough   =   0   'False
  155.       EndProperty
  156.       AlignSet        =   -1  'True
  157.       SimpleText      =   ""
  158.       i1              =   "simple.frx":030E
  159.    End
  160.    Begin ComctlLib.ImageList ImageList1 
  161.       Left            =   6300
  162.       Top             =   0
  163.       _Version        =   65536
  164.       _ExtentX        =   1005
  165.       _ExtentY        =   1005
  166.       _StockProps     =   1
  167.       BackColor       =   -2147483643
  168.       ImageWidth      =   16
  169.       ImageHeight     =   16
  170.       MaskColor       =   12632256
  171.       NumImages       =   8
  172.       i1              =   "simple.frx":041A
  173.       i2              =   "simple.frx":07D9
  174.       i3              =   "simple.frx":0B98
  175.       i4              =   "simple.frx":0D97
  176.       i5              =   "simple.frx":0F96
  177.       i6              =   "simple.frx":1195
  178.       i7              =   "simple.frx":1394
  179.       i8              =   "simple.frx":1593
  180.    End
  181.    Begin VB.Label Label1 
  182.       Alignment       =   1  'Right Justify
  183.       Caption         =   "URL:"
  184.       BeginProperty Font 
  185.          name            =   "Arial"
  186.          charset         =   0
  187.          weight          =   700
  188.          size            =   9.75
  189.          underline       =   0   'False
  190.          italic          =   0   'False
  191.          strikethrough   =   0   'False
  192.       EndProperty
  193.       Height          =   300
  194.       Left            =   15
  195.       TabIndex        =   1
  196.       Top             =   495
  197.       Width           =   510
  198.    End
  199.    Begin ComctlLib.Toolbar Toolbar1 
  200.       Align           =   1  'Align Top
  201.       Height          =   390
  202.       Left            =   0
  203.       TabIndex        =   0
  204.       Top             =   0
  205.       Width           =   6720
  206.       _Version        =   65536
  207.       _ExtentX        =   11853
  208.       _ExtentY        =   688
  209.       _StockProps     =   96
  210.       ImageList       =   "ImageList1"
  211.       ButtonWidth     =   609
  212.       NumButtons      =   12
  213.       i1              =   "simple.frx":1952
  214.       i2              =   "simple.frx":1B01
  215.       i3              =   "simple.frx":1CB8
  216.       i4              =   "simple.frx":1E57
  217.       i5              =   "simple.frx":2022
  218.       i6              =   "simple.frx":21E5
  219.       i7              =   "simple.frx":2390
  220.       i8              =   "simple.frx":253F
  221.       i9              =   "simple.frx":26F2
  222.       i10             =   "simple.frx":2891
  223.       i11             =   "simple.frx":2A35
  224.       i12             =   "simple.frx":2BD5
  225.       AlignSet        =   -1  'True
  226.    End
  227. End
  228. Attribute VB_Name = "Form1"
  229. Attribute VB_Creatable = False
  230. Attribute VB_Exposed = False
  231. Option Explicit
  232.  
  233. Public pnlX As Panel
  234. Private Sub Command1_Click()
  235.     HTML1.RequestDocument (Combo1.Text)
  236. End Sub
  237. Private Sub Combo1_Click()
  238.     HTML1.RequestDoc (Combo1.Text)
  239. End Sub
  240. Private Sub Combo1_KeyPress(KeyAscii As Integer)
  241.     Dim strURL As String
  242.     strURL = Combo1.Text
  243.     
  244.     Select Case KeyAscii
  245.         Case 13
  246.             HTML1.RequestDoc strURL
  247.     End Select
  248. End Sub
  249. Private Sub Form_Load()
  250.     Set pnlX = StatusBar1.Panels(1)
  251. End Sub
  252. Private Sub Form_Resize()
  253.     Combo1.Width = Me.ScaleWidth - 540 ' Factor URL label
  254.     HTML1.Width = Me.ScaleWidth + 10
  255.     HTML1.Height = Me.ScaleHeight - 1100  ' Factor toolbar height
  256. End Sub
  257. Private Sub HTML1_BeginRetrieval()
  258.     pnlX.Text = "Requesting document..."
  259. End Sub
  260. Private Sub HTML1_EndRetrieval()
  261.     pnlX.Text = "Document received..."
  262.     Combo1.Text = HTML1.URL
  263.     Combo1.AddItem HTML1.URL
  264. End Sub
  265. Private Sub HTML1_LayoutComplete()
  266.     pnlX.Text = "Layout Complete..."
  267. End Sub
  268. Private Sub HTML1_ParseComplete()
  269.     pnlX.Text = "Parsing Complete..."
  270. End Sub
  271. Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
  272.     Select Case Button.Index
  273.         Case 1
  274.             
  275.             Dim strURL As String
  276.             
  277.             dlgFileOpen.Filter = "HTML Files (*.htm)|*.htm|All(*.*)|*.*"
  278.             dlgFileOpen.FilterIndex = 0
  279.             dlgFileOpen.ShowOpen
  280.             
  281.             strURL = "file:///" & dlgFileOpen.filename
  282.             Dim lTok As Long
  283.             lTok = InStr(strURL, "\")
  284.             While lTok <> 0
  285.                 Mid$(strURL, lTok, 1) = "/"
  286.                 lTok = InStr(strURL, "\")
  287.             Wend
  288.             HTML1.RequestDoc (strURL)
  289.             
  290.         Case 2
  291.             Dim vNewForm As Object
  292.             Set vNewForm = New Form1
  293.             vNewForm.Left = Form1.Left + 550
  294.             vNewForm.Top = Form1.Top + 550
  295.             vNewForm.Show
  296.         
  297.         'There was not enough time to implement a database
  298.         'solution for history and navigation.  This will
  299.         'appear in a future Beta.  Use the combo box for
  300.         'history.
  301.         
  302.         'Case 4
  303.         '    If Combo1.ListIndex > 0 Then
  304.         '        Combo1.ListIndex = Combo1.ListIndex - 1
  305.         '    Else
  306.         '        MsgBox "Sorry.  Can't go any further..."
  307.         '    End If
  308.         'Case 5
  309.         '    If (Combo1.ListIndex < Combo1.ListCount - 1) And Not (Combo1.ListIndex = -1) Then
  310.         '        Combo1.ListIndex = Combo1.ListIndex + 1
  311.         '    Else
  312.         '        MsgBox "Sorry.  Can't go any further..."
  313.         '    End If
  314.         Case 7
  315.             HTML1.Cancel
  316.         Case 8
  317.             HTML1.RequestDoc (Combo1.Text)
  318.         Case 10
  319.             HTML1.RequestDoc ("http://www.microsoft.com")
  320.         Case 12
  321.             HTML1.RequestDoc ("http://guide.infoseek.com")
  322.     End Select
  323. End Sub
  324.